home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
Weiterleiten.zprx
< prev
next >
Wrap
Text File
|
1995-08-28
|
4KB
|
146 lines
/* $VER: Weiterleiten.zprx 1.0# (29.04.1995), R95 Jean-Marie de Crozals
COPYRIGHT
Dieses ARexx-Skript ist FD. -nderungen sind nur im Rahmen der
Konfiguration dieses Skriptes oder der Anpassung an neue "Zodiac's
Point"-Versionen zulSssig. Die kommerzielle Verwendung ist untersagt.
Ausnahme ist die Hinzufngung zu dem Programmpaket "Zodiac's Point" von
Ralph Seichter.
INSTALLATION
Man kann dieses Script wie folgt auf eine F-Taste legen...
F1:SYS:RexxC/Rx ZPOINT:Rexx/Weiterleiten.zprx %s
WICHTIG: Diese Skript benötigt UNBEDINGT folgende Library:
- rexxtricks.library
BESCHREIBUNG
Dieses Script leitet die markierten Nachrichten in beliebige Bretter
(au#er Spool-Brett) weiter... Die markierten Nachrichten werden
in diesem Brett gelöscht...
*/
/*
folgende VerSnderungen wurden von mir, Nils Görs, durchgefnhrt.
A das Weiterleiten in das Nachrichtenarchiv.
A die Anpassung an die rexxtricks.library V38.2.
A bessere und schnellere Mehode zum weiterleiten.
A Nachrichten können zum löschen bzw. zum reorganisieren markiert
werden.
*/
NL = '0a'x
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
zpPort = "ZPoint"
ADDRESS VALUE zpPort
if (~show('LIBRARIES', 'rexxreqtools.library')) then
if (~addlib('rexxreqtools.library', 0, -30, 0)) then
do
REQUESTNOTIFY 'Kann rexxreqtools.library nicht öffnen!'
exit
end
if (~show('LIBRARIES', 'rexxtricks.library')) then
if (~addlib('rexxtricks.library', 0, -30, 0)) then
do
REQUESTNOTIFY 'Kann rexxtricks.library nicht öffnen!'
exit
end
WHICHLEVEL
if (result ~= 'BOARD') then
do
REQUESTNOTIFY 'Du mu#t schon in ein Brett gehen!!!'
exit
end
COUNT LISTED
IF RESULT == 0 THEN DO
REQUESTNOTIFY "Es wurde keine markierte"NL,
"Nachricht gefunden!"; EXIT; END
HOMEPATH
BrettListe = result
BrettListe = BrettListe'/boardlist.zp'
if (~open('Bretter',BrettListe,'R')) then
do
REQUESTNOTIFY 'Kann Brettliste nicht laden!'
exit
end
i=1
liste.i = 'Nachrichtenarchiv'
i=i+1
do forever
Zeile = readln('Bretter')
if Zeile='' then leave
if left(Zeile,2)='B:' then
do
Laenge = length(Zeile)-2
Zeile = right(Zeile,Laenge)
liste.i = Zeile
i = i+1
end
end
liste.0 = i-1
fenster.title = 'Zielbrett wShlen...'
fenster.pubscreen = zpPort
fenster.gadgettext = '_Weiterleiten|_Abbruch'
fenster.width = 600
fenster.font = 'SCREEN'
fenster.sort = 'FALSE'
if (~VIEWLIST('liste','fenster','destvar')) then
exit
CALL rtezrequest("Was soll mit den Nachrichten passieren?",,
"nicht löschen|zum löschen markieren|zum reorganisieren markieren",,
"Weiterleiten","rt_pubscrname="zpPort)
WhatToDo = RESULT
CALL TIME('Reset')
Messages = 0
more= 1
j = 1
BrettName = destvar.j
JUMPTOMESSAGE 1
MESSAGEINFO LISTED
IF Result == 1 THEN CALL _Weiterleiten
DO WHILE more
JUMPTOMESSAGE LISTED
more = (RC)
IF more == 1 THEN CALL _Weiterleiten
END
STime = TIME('Elapsed')
Messages = Messages/destvar.0
REQUESTNOTIFY "Es wurden" Messages "Nachrichten in" destvar.0 "Bretter weitergeleitet!"
REQUESTNOTIFY "Die ganze Transaktion hat" STime "sek. gedauert!"
EXIT
_Weiterleiten: /* Nachricht in die Bretter weiterleiten */
DO j = 1 to destvar.0
BrettName = destvar.j
FORWARDMESSAGE '"'BrettName'" INTERNAL'
Messages = Messages + 1
END
SELECT /* Was soll danach mit den Nachrichten passieren? */
WHEN WhatToDo == 1 THEN NOP
WHEN WhatToDo == 2 THEN DELETE ONE
WHEN WhatToDo == 0 THEN DELETE LATER ONE
OTHERWISE
END
RETURN